Attribute VB_Name = "Collect1"
Sub Collect(PhacDr As String, mControl As Control, Nurse As String)
    '
    If PhacDr <> "" Then
    '
      mControl.Value = 0
      mControl.P1 = PhacDr
      mControl.P2 = Nurse
      mControl.code = "$$Collect^DHCSTPCHCOLLS(P1,P2)"
      mControl.ExecFlag = 1
    '
    End If
    
End Sub
